<!--#include file="CheckSession.asp"-->
<!--#include file="../inc/PublicFun.Asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
    <title>��̨����</title>
    <link href="css/style.css" rel="stylesheet" type="text/css"/>
</head>

<body>
<%
strAction = request("action")
	strProductId = request("ProductId")
	strPage = request("page")
	If strAction = "d" and strProductId <> "" Then
		Conn . Execute("Delete * from AABB Where ProductId=" & strProductId & "")
		Response . Redirect("Admin_ProductList.Asp?page=" & strPage & "")
	End If
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td height="50" align="center" class="title">��Ϣ����</td>
    </tr>
</table>
<div>&nbsp;</div>
<table width="100%" border="1" cellpadding="5" cellspacing="0" style="border-collapse:collapse">
    <tr>
        <td width="10%" align="center" nowrap class="borderon">����</td>
        <td width="55%" align="center" nowrap class="borderon">��Ʒ���</td>
        <td width="20%" align="center" nowrap class="borderon">��Ʒ���</td>
        <td width="15%" align="center" nowrap class="borderon">���ʱ��</td>
    </tr>
    <%

    Set Rs = Server . CreateObject("Adodb.RecordSet")
	Sql = "Select * from AABB Order by Times Desc"
	Rs . PageSize = 20
	Rs . Open sql,conn,1,1
	  
	TotalNumber = Rs . RecordCount
	MaxPerPage = Rs . PageSize
	if totalnumber > 0 then
		if not isempty(request("page")) and request("page") <> "" then
			CurrentPage = Cint(request("page"))
		else 
			CurrentPage = 1
		end if
    rs . AbsolutePage = CurrentPage

    for i = 1 to rs . PageSize
    if Rs . Eof or rs . Bof then exit for
		
%>
    <tr>
        <td align="center"><a href="Admin_ProductAdd.Asp">����</a>|<a
                href="Admin_ProductAdd.asp?ProductId=<%= rs("id") %>">�޸�</a>|<a
                href="?action=d&ProductId=<%= rs("id") %>&page=<%= strPage %>">ɾ��</a></td>
        <td><%= rs("A1") %></td>
        <td>
            <%= rs("A2") %>
        </td>
        <td align="center"><%= rs("Times") %></td>
    </tr>
    <%
    Rs . MoveNext
		 Next
  %>
    <tr>
        <td colspan="4"><% call showpage(totalnumber, maxperpage, CurrentPage, "", "keyword")%></td>
    </tr>
    <%
    Else
    %>
        <tr>
            <td colspan="4" height="30" align="center">������Ϣ</td>
        </tr>
    <%
    Rs.Close()
    Set Rs = Nothing
    End If
    %>
</table>
</body>
</html>
